10 POKE53280,6:POKE53281,6:PRINT""
20 PRINT"[147]";TAB(9)"**********************"
30 PRINTTAB(9)"*[144]    [195][193][205][197][204][160] [212][210][197][203]     *"
40 PRINTTAB(9)"**********************"
50 GOSUB2790
60 PRINTTAB(18)"[159]BY R.W. KOBER[154]"
62 PRINT"[144][204][207][193][196][211][212][193][210] IS NOT PUBLIC DOMAIN."
64 PRINT"[144][208]LEASE RESPECT THE AUTHOR'S RIGHTS."
70 FORD=1TO3500:NEXT
80 TR%=0:TC%=0:TD%=0
90 FORSC=1TO20:PRINT"":NEXT
100 PRINT"[144] [215]OULD YOU LIKE SOME INSTRUCTION AS TO"
110 PRINT" HOW THIS GAME IS PLAYED??  Y OR N [154]"
120 FORSC=1TO5:PRINT"":NEXT
130 GETD$:IFD$="N"THEN420
140 IFD$<>"Y"THEN130
150 PRINT"[147][144][215]ELCOME TO [195][193][205][197][204][160][212][210][197][203]. [212]HE OBJECT IS TO"
160 PRINT"TRAVEL ACROSS THE GREAT [199]OBIE DESERT---"
170 PRINT"A TRIBE OF CANNIBALISTIC PYGMIES WILL"
180 PRINT"BE CHASING YOU.------------ [217]OU WILL BE"
190 PRINT"ASKED FOR COMMANDS TO CONTINUE PLAY."
200 FORD=1TO1000:NEXT
210 FORDA=1TO40:PRINT"-";:FORD=1TO100:NEXT:NEXT
220 POKE198,0:PRINT"[154]   YOUR CHOICES WILL BE AS FOLLOWS."
230 GOSUB2400
240 PRINT"     <PRESS A KEY TO CONTINUE>"
250 IFPEEK(197)=64THEN250
260 :
310 POKE198,0
320 PRINT"[147][144][217]OU HAVE 1 QUART OF WATER WHICH WILL"
330 PRINT"LAST YOU 6 DRINKS. [217]OU MAY REFILL YOUR"
340 PRINT"YOUR CANTEEN AT AN OASIS. [217]OU WILL GET"
350 PRINT"1/2 QUART IF YOUR MIRACLE OCCURS."
360 PRINT"[201]F YOU HOPE FOR A MIRACLE AND DON'T"
370 PRINT"GET IT";:FORDA=1TO15:PRINT"-";:FORD=1TO500:NEXT:NEXT
380 PRINTTAB(24)"[144]YOU'RE DEAD!![154]"
390 FORD=1TO2000:NEXT
400 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145]          [211]ELECT DIFFICULTY LEVEL":GOTO430
410 RESTORE
420 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]         [211]ELECT DIFFICULTY LEVEL"
430 RESTORE:PRINT"           #1[146][154] =  50 MILE TREK"
440 PRINT"           #2[146][154] = 100 MILE TREK"
450 PRINT"           #3[146][154] = 150 MILE TREK"
460 PRINT"           #4[146][154] = 200 MILE TREK"
470 GETM$:IFVAL(M$)<1ORVAL(M$)>4THEN470
480 ONVAL(M$)GOTO490,500,510,520
490 M=50:J=32:K=53:L=48:KK=3:GOTO530
500 M=100:J=49:K=48:L=48:KK=3:GOTO530
510 M=150:J=49:K=53:L=48:KK=2:GOTO530
520 M=200:J=50:K=48:L=48:KK=2:GOTO530
530 FORGG=0TO4:READG
540 IFG=-1THENPRINT"[147]":GOTO410
550 POKE1918+GG,G:NEXT
560 FORMM=0TO5:READP
570 IFP=-1THENPRINT"[147]":GOTO410
580 POKE1926+MM,P:NEXT
590 FORCS=0TO13:POKE56190+CS,0:NEXT
600 DATA7,15,1,12,61,32,13,9,12,5,19,-1
610 POKE1923,J:POKE1924,K:POKE1925,L
620 PRINT"    GOOD LUCK AND GOOD CAMEL TREKKING."
630 FORD=1TO2000:NEXT
640 PRINT"[147][217]OU ARE IN THE MIDDLE OF THE [199]OBIE "
650 PRINT"DESERT, AT AN OASIS-----------------"
660 GOSUB2380
670 PRINT"[217]OUR TREK IS JUST ABOUT READY TO BEGIN":GOTO880
680 IFC>M-1THEN1810
690 Z=Z-1:Q=Q+1:QQ=0
700 IFZ=1THENPRINT"[158]----- [215][160][193][160][210][160][206][160][201][160][206][160][199] [146]-----[144] GET A DRINK[154]"
702 FORDL=1TO600:NEXTDL
710 IFZ<0THEN2310
720 X2=INT(RND(1)*10+1)
730 IFQ<KKTHEN870
740 C1=C1+X2
750 IFC1<CTHEN850
760 POKE53280,2:POKE53281,11
770 PRINT"[147][158]                                       "
780 PRINT" *** [212]HE PYGMIES HAVE CAPTURED YOU.*** "
790 PRINT"                                       [146]":GOSUB2740
800 PRINT"  [195]AMEL'S [195]REAM OF [208]EOPLE SOUP IS THEIR"
810 PRINT"  FAVORITE MEAL---":FORD=1TO3000:NEXT
820 POKE53280,6:POKE53281,6:FORD=1TO500:NEXT
830 PRINTTAB(25)"[144]B [145]U [145]R [145]P---[154]"
840 GOTO2040
850 IFC-C1<10THENPRINT"[158] [193][204][197][210][212]![146][154] [212]HE PYGMIES ARE";C-C1;"MILES BEHIND":GOTO870
860 PRINT"[212]HE PYGMIES ARE ";C-C1;" MILES BEHIND YOU."
870 PRINT"[217]OU HAVE TRAVELED ";C;" MILES SO FAR."
880 PRINT"        [215]HAT IS YOUR COMMAND?"
890 PRINT"      (FOR CHOICES PRESS <F7>)"
900 PRINT"[153]----------------------------------------[154]"
910 IFPEEK(197)=64THEN910
920 IFPEEK(197)=3THENGOSUB2400:GOTO925
925 GETY$:IFY$="Q"THEN63000
930 IFVAL(Y$)<1ORVAL(Y$)>6THEN910
940 ONVAL(Y$)GOTO1260,1020,1120,1210,1300
950 T=INT(RND(1)*10+1)
960 IFT>3THEN1800
970 POKE198,0:PRINT" [217]OU HAVE BEEN FOUND IN A STATE OF "
980 PRINT" UNCONSCIOUSNESS."
990 S=3
1000 Z=4
1010 GOTO680
1020 POKE198,0:F=F+1
1030 PRINT"[147]":GOSUB2600
1040 IFF=8THEN1780
1050 GOSUB1420
1060 X1=INT(RND(1)*10+1)
1070 C=C+X1
1080 IFQQ=1THEN680
1090 PRINT"     [217]OUR CAMEL LIKES THIS PACE!"
1100 IFF>5THENPRINT"    [158] BUT [146][154]--HE IS GETTING TIRED"
1110 GOTO680
1120 POKE198,0:F=F+3
1130 PRINT"[147]":GOSUB2670
1140 IFF>7THEN1780
1150 GOSUB1420
1160 X1=INT(RND(1)*20+1)
1170 C=C+X1
1180 IFQQ=1THEN680
1190 PRINT"[217]OUR CAMEL IS[150] BURNING[154] UP THE DESERT SAND"
1200 GOTO680
1210 POKE53280,0:POKE53281,0
1220 POKE198,0:PRINT"[147] [217]OUR CAMEL THANKS YOU.  [159]ZZZ-ZZZ-ZZZ-ZZZ[154]"
1230 F=0:C1=C1+10
1240 FORD=1TO2000:NEXT
1250 POKE53280,6:POKE53281,6:GOTO680
1260 PRINT"[147]":POKE198,0:POKE53280,11:POKE53281,11
1270 FORVB=1TO7:PRINT"[159][205]MM";:FORD=1TO100:NEXT:NEXT
1280 PRINTTAB(17)"[145][145][145][145][156]---- GOOD WATER [146][154]"
1290 FORD=1TO100:NEXT:POKE53280,6:POKE53281,6:GOTO1360
1300 PRINT"[147]":POKE53280,9:POKE53281,9
1310 POKE198,0:PRINT"[217]OUR CAMEL HAS";7-F;" GOOD DAYS LEFT"
1320 PRINT"[217]OU HAVE";S;"DRINKS LEFT IN YOUR CANTEEN."
1330 PRINT"[217]OU CAN GO";Z;"COMMANDS WITHOUT DRINKING."
1340 PRINT"YOU STILL HAVE ";M-C;" MILES TO TRAVEL"
1350 FORD=1TO3000:NEXT
1360 POKE198,0:S=S-1:POKE53280,6:POKE53281,6
1370 IFS<0THEN1800
1380 IFS>2THEN1400
1390 PRINT"[158]    ----[194]ETTER WATCH FOR AN OASIS[146]----[154]"
1400 Z=4
1410 GOTO880
1420 A=INT(RND(1)*100+1)
1430 IFA>5THEN1700
1440 PRINT"   [215]ILD [194]ERBERS HIDDEN IN THE SAND HAVE"
1450 PRINT"  CAPTURED YOU. [204]UCKILY, THE LOCAL SHEIK"
1460 PRINT"  HAS AGREED TO THEIR RANSOM DEMANDS---"
1470 PRINT"  BUT---WATCH OUT FOR THE PYGMIES!!!!"
1480 FORD=1TO4000:NEXT
1490 PRINT"":FORDA=1TO40:PRINT"[152]-";:FORD=1TO30:NEXT:NEXT
1500 PRINT"[154] [217]OU HAVE TWO NEW CHOICES OF COMMANDS"
1510 PRINT"         #7[146][154] = [193]TTEMPT AN ESCAPE"
1520 PRINT"         #8[146][154] = [215]AIT FOR PAYMENT"
1530 PRINT"        [215]HAT IS YOUR COMMAND?"
1540 PRINT"[159]---------------------------------------[154]"
1550 GETX$:IFX$="8"THEN1640
1560 IFX$<>"7"THEN1550
1570 X1=INT(RND(1)*10+1)
1580 IFX1<6THEN1610
1590 PRINT"[195]ONGRATULATIONS---YOU'VE ESCAPED!!!"
1600 GOTO680
1610 PRINT"[217]OU WERE MORTALLY WOUNDED BY A PIG"
1620 PRINT"STABBER WHILE ESCAPING."
1630 GOTO2040
1640 X1=INT(RND(1)*100+1)
1650 IFX1>24THEN1680
1660 PRINT"[217]OUR RANSOM HAS BEEN PAID, YOU ARE FREE."
1670 GOTO680
1680 PRINT"[212]HE LOCAL SULTAN IS COLLECTING---WAIT--"
1690 FORD=1TO3000:NEXT
1700 A=INT(RND(1)*10+1)
1710 IFA>3THEN1870
1720 PRINT"[217]OU HAVE ARRIVED AT AN OASIS. [217]OUR CAMEL"
1730 PRINT"IS FILLING YOUR CANTEEN AND EATING FIGS."
1740 C=C+10
1750 Z=4
1760 S=6:QQ=1
1770 RETURN
1780 PRINT"[147][212]OO BAD....YOU RAN YOUR POOR OLD CAMEL"
1790 PRINT"TOO DEATH!!"
1800 GOTO2040
1810 PRINT"[150][147]  *********** [217][160][207][160][213][160][160][215] [201] [206] ***********"
1820 GOSUB2790
1830 PRINT"[152]  [193] PARTY IS BEING GIVEN IN YOUR HONOR."
1840 PRINT"[144]   [212]HE PYGMIES ARE PLANNING TO ATTEND.[154]"
1850 TC%=TC%+1
1860 GOTO2240
1870 X1=INT(RND(1)*100+1)
1880 IFX1>5THEN1980
1890 PRINT"[217]OU HAVE BEEN CAUGHT IN A SAND STORM!"
1900 X5=INT(RND(1)*10+1)
1910 X6=INT(RND(1)*10+1)
1920 IFX6<5THEN1950
1930 C=C+X5
1940 GOTO1960
1950 C=C-X5:IFC<0THENC=0
1960 PRINT"[217]OUR NEW POSITION IS ";C;" MILES SO FAR."
1970 GOTO880
1980 X1=INT(RND(1)*100+1)
1990 IFX1>5THENRETURN
2000 C1=C1+1
2010 PRINT"      [217]OUR CAMEL HURT HIS HUMP."
2020 PRINT"  [204]UCKILY THE PYGMIES WERE FOOTWEARY."
2030 GOTO880
2040 U=INT(RND(1)*10+1)
2050 PRINT"[150][217]OU DIED IN THE DESERT----------------[154]"
2060 GOSUB2930
2070 IFU>1THEN2110
2080 PRINT"[212]H[217]E NATIONAL CAMEL'S UNION IS BOYCOTTING"
2090 PRINT"YOUR FUNERAL!!!!!"
2100 GOTO2240
2110 IFU>3THEN2150
2120 PRINT"[217]OUR BODY WAS EATEN BY BUZZARDS AND"
2130 PRINT"SOME IMPORTED CANNIBALS!!!!!"
2140 GOTO2240
2150 IFU>5THEN2190
2160 PRINT"[212]HE LOCAL SHEIK NOW USES YOUR SKULL FOR"
2170 PRINT"A CHANGE PURSE!!!!!"
2180 GOTO2240
2190 IFU>7THEN2230
2200 PRINT"[201] THINK YOU SHOULD STEER CLEAR OF"
2210 PRINT"ALL DESERTS!!!"
2220 GOTO2240
2230 PRINT"     [201] DON'T THINK YOU SHOULD BE                  RIDING CAMELS!!!!"
2240 FORD=1TO5000:NEXT:PRINT""
2250 PRINT"[147][150]                                       "
2260 PRINT"   [215]ANT A NEW CAMEL AND A NEW TREK???  "
2270 PRINT"                                       [146][154]"
2280 GETD$:IFD$="Y"THENPRINT"[147]":GOTO400
2290 IFD$<>"N"THEN2280
2300 GOTO2330
2310 PRINT"[147][150][217]OU RAN OUT OFF WATER.......SORRY![154]"
2320 GOTO2040
2330 PRINT"[147][158]";TAB(11)"*****************"
2340 PRINTTAB(11)"*[212]RY AGAIN LATER*"
2350 PRINTTAB(11)"*****************[154]"
2360 GOSUB2740
2370 GOTO2480
2380 Z=4:S=6:C=0:C1=0:F=0:Q=-1:TR%=TR%+1
2390 RETURN
2400 POKE198,0:PRINT"";TAB(9)"[152]'[195][160][207][160][205][160][205][160][193][160][206][160][196][160][211]'[154]"
2410 PRINT"     #[152]1[146][154] = [196]RINK FROM YOUR CANTEEN"
2420 PRINT"     #[152]2[146][154] = [193]HEAD AT MODERATE SPEED"
2430 PRINT"     #[152]3[146][154] = [193]HEAD AT FULL SPEED"
2440 PRINT"     #[152]4[146][154] = [211]TOP FOR THE NIGHT"
2450 PRINT"     #[152]5[146][154] = [210]EQUEST A STATUS CHECK"
2460 PRINT"     #[152]6[146][154] = [200]OPE FOR A MIRACLE"
2465 PRINT"      [152]Q[146][154] = [209]UITS"
2470 RETURN
2480 FORD=1TO2000:NEXT
2490 FORSC=1TO25:PRINT"":NEXT
2500 PRINT"";TAB(13)"[212] [200][160][197][160][160][197] [206][160][196]"
2510 PRINT"[159][217]OU EMBARKED ON";TR%;:IFTR%=0THENPRINT"TREK.":GOTO2520
2511 PRINT"TREKS."
2520 PRINT"[217]OU SUCESSFULLY COMPLETED";TC%;:IFTC%=1THENPRINT"TREK":GOTO2530
2522 PRINT"TREKS"
2530 PRINT"[150]BUT, YOU DIED, IN SOME WAY,";TR%-TC%;:IFTR%-TC%=1THENPRINT"TIME.":GOTO2540
2532 PRINT"TIMES."
2540 :
2550 PRINT"[144] [217]OUR SURVIVAL RATE =";TC%*100/TR%;"%[154]"
2560 PRINT"[144]     [208]RESS ANY KEY TO END PROGRAM!!![154]"
2570 IFPEEK(197)=64THEN2570
2580 FORSC=1TO25:PRINT"":NEXT
2590 GOTO63000
2595 :
2600 FORT=1TO5
2610 SS=54272:FORAA=0TO24:POKESS+AA,0:NEXT
2620 POKESS+24,15:POKESS,220:POKESS+1,68:POKESS+5,15:POKESS+6,215:POKESS+4,129
2630 POKESS+7,120:POKESS+8,100:POKESS+12,15:POKESS+13,215
2640 POKESS+11,17:POKESS+24,0
2650 FORD=1TO200:NEXT:NEXT
2660 POKE53280,6:POKE53281,6:RETURN
2670 FORT=1TO5
2680 SS=54272:FORAA=0TO24:POKESS+AA,0:NEXT
2690 POKESS+24,15:POKESS,220:POKESS+1,68:POKESS+5,15:POKESS+6,215:POKESS+4,129
2700 POKESS+7,120:POKESS+8,100:POKESS+12,15:POKESS+13,215
2710 POKESS+11,17:POKESS+24,0
2720 FORD=1TO75:NEXT:NEXT
2730 POKE53280,6:POKE53281,6:RETURN
2740 SQ=54272:FORSZ=SQTOSQ+24:POKESZ,0:NEXT
2750 POKESQ+24,15:POKESQ+1,7:POKESQ,75
2760 POKESQ+5,64:POKESQ+6,250:POKESQ+4,33:FORT=1TO1500:NEXT
2770 POKESQ+1,4:FORT=1TO1500:NEXT
2780 FORSZ=10TO0STEP-1:POKESQ+24,SZ:NEXT:RETURN
2790 FORL=54272TO54296:POKEL,0:NEXT
2800 POKE54296,15:POKE54277,64:POKE54278,250:POKE54272,75:POKE54276,65
2810 X=54273:POKE54275,5:POKE54274,250
2820 POKEX,34:FORD=1TO100:NEXT
2830 POKEX,43:FORD=1TO100:NEXT
2840 POKEX,51:FORD=1TO100:NEXT
2850 POKEX,68:FORD=1TO200:NEXT
2860 POKEX,57:FORD=1TO100:NEXT
2870 POKEX,68:FORD=1TO500:NEXT
2880 POKE54296,0
2890 RETURN
2900 :
2910 POKEX,26:FORD=1TO1000:NEXT
2920 REM
2930 FORL=54272TO54296:POKEL,0:NEXT
2940 POKE54296,15:POKE54277,64:POKE54278,250:POKE54272,75:POKE54276,65
2950 X=54273:POKE54275,5:POKE54274,250
2960 POKEX,26:FORD=1TO500:NEXT
2970 FORD=1TO10:POKEX,0:NEXT
2980 POKEX,26:FORD=1TO200:NEXT
2990 FORD=1TO10:POKEX,0:NEXT
3000 POKEX,34:FORD=1TO1000:NEXT
3010 FORD=1TO100:POKE54296,0:NEXT:POKE54296,15
3020 POKEX,26:FORD=1TO500:NEXT
3030 FORD=1TO10:POKEX,0:NEXT
3040 POKEX,34:FORD=1TO200:NEXT
3050 FORD=1TO10:POKEX,0:NEXT
3060 POKEX,43:FORD=1TO2000:NEXT
3070 POKE54296,0
3080 RETURN
10000 D=PEEK(186):N$="B.CAMEL TREK":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
63000 REM  CONNECT TO L.S.
63010 GOTO40000:REMD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"QQQQRUNS"
63020 [151]631,13:[151]632,13:[151]198,2:[128]